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1.  INTRODUCTION 


Availablt  IBH>PC  softNara  for  the  IBN-7231  and  7232  color  plotttra 
hat  one  eajor  deficiency:  the  toftware  Mill  not  accept  function  defini¬ 
tion!  at  ttandard  input.  Plotting  function!  require!  that  the  function! 
are  input  at  ditcrete  (X,Y)  coordinate!. 

~The  prograa  eon^tained  and- illutt^^ted  in  thit  report  elieinatet  the 
requireeent  for  ditcrete  coordinate  input!  in  order  to  plot  function!. 
Continuou!  tingle  valued  function!  are  defined  uting  the  conetruction 
rule!  for  ttandard  BASIC  exprettiont.  Thete  function  definition!  then 
becoee  the  prograa  input!.  The  prograa  Hill  alto  accept  (X,Y)  point!  and 
plot  a  line  graph  connecting  the  point!.  The  prograa  it  nritten  in  IBH 
BASIC  and  it  included  at  Appendix  A.  The  prograa  input  requireaentt  are: 

a. )  Input  function  file. 

b. )  Plotting  paraaetert. 

c.  )  Line  graph  point!. 

The  input  function  file  it  created  at  a  separate  file  and  contain! 
the  function  definition!.  The  plotting  paraaetert  and  the  line  graph  are 
provided  in  retponte  to  prograa  interactive  aenut. 

In  general  the  prograa  provide!  the  uter  aith  the  capability  to: 

a. )  Plot  any  telection  of  five  uter  defined  function!. 

b. )  Specify  line  foraatt,  pen  telection,  grid  tpacing,  label!, 

legend!  and  plot  tize. 

c. )  Plot  a  line  graph  connecting  up  to  100  <X,Y)  point!. 

d. )  Save  the  plotting  paraaetert  and  line  graph  point!  in  an  input 

data  file. 

The  plot  it  horizontally  centered  on  B  1/2  x  11  inch  paper.  The 
plotting  area  it  a  tquare  aith  uter  defined  diaentiont  froa  three  to 
five  inchet. 

2.  PR06RAN  ACCESS 

The  IBN-PC  BASIC  prograa  it  available  on  diakette  for  copying  froa 
the  Operation!  Retearch  Departaent  Office,  Root  272.  The  diakette  con¬ 
tain!  the  prograa  in  file  IBHPLOT.BAS,  taaple  input  function  filet 
IBNFEXl.BAS  and  1BNFEX2.BAS,  and  taaple  input  data  filet  IBNDEXl  and 
lBnOEX2  corretponding  to  Exaaplet  1  and  2  of  thit  report. 


3.  INPUT  FUNCTION  FILE 


In  order  to  plot  function*  the  prograe  require*  that  the  function 
definition*  are  conatructed  a*  BASIC  atateaent*  and  are  contained  in  an 
input  function  file.  The  foraat  for  thi*  file  ia: 

5010  Function  Definition  1 
5020  Function  Definition  2 
5030  Function  Definition  3 
5040  Function  Definition  4 
5050  function  Definition  5 

Each  atateaent  begin*  on  a  nea  line.  The  nuaber*  6010-6050  are  BASIC 
atateaent  nuaber*  and  auat  occupy  coluan*  1-4.  The  function  defini¬ 
tion*  are  valid  BASIC  expresaion*  in  the  fora  V^FIX).  Each  atateaent 
can  contain  256  character*.  The  aaxiaua  nuaber  of  function  definition* 
in  on*  input  function  file  i*  five.  Nhen  the  nuaber  of  function  defini¬ 
tion*  is  leas  than  five,  the  function  definition  atateaent*  aust  begin 
Nith  5010  and  continue  in  sequence  5020,  5030,  etc. 

An  exaaple  of  a  valid  input  function  file  ia: 

5010  Y*S1N(X) 

5020  y>C0S(X) 

5030  Y>TAN(X) 

The  input  function  file  auat  be  an  ASCII  file.  Thi*  file  can  be 
created  aith  a  aord  processor,  aith  EDLIN  or  aith  BASIC  and  saved  a*  an 
ASCII  file.  This  file  can  have  any  valid  DOS  file  naae  but  auat  have 
".BAS"  a*  the  file  naae  extension. 

4.  PR06RAM  STARTUP 

Executing  the  prograa  requires  that: 

a. )  The  IBN-PC  and  the  IBM  Plotter  are  connected  via  the  CONI 

serial  port. 

b. )  An  input  function  file,  if  required,  ia  available. 

A  recoaaended  prograa  startup  procedure  on  the  IBN-PC  is: 

a. )  Place  the  IBN  DOS  Diskette  in  Drive  A. 

b. )  Turn  the  IBN-PC  on. 

c. )  Respond  to  the  Date  and  Tiae  requests,  if  required. 

d. )  At  the  A>  proapt  type  BASICA  (Return). 

e. )  Place  the  IBNPLOT.BAS  diskette  in  Drive  A. 

f. )  Type  RUN  "IBNPLOT  (Return). 

Froa  this  point  on  the  user  is  directed  by  interactive  prograa 
aenus. 


S.  HENUS 


Thtri  an  fifttan  atnui  that  appear  in  sequence  during  prograe 
execution.  These  eenus  proept  the  user  tor  inputs  or  provide  intonation 
on  the  status  ot  the  prograe.  General  intoraation  tor  the  input  eenus 
is: 

a. )  All  inputs  in  a  eenu  are  listed  eith  current  values. 

b. )  As  each  input  is  considered  tor  changing  it  is  highlighted 

with  an 

c. )  A  Y/N  in  the  input  proept  indicates  the  input  response  is  “Y" 

tor  Yes  and  'N*  tor  No. 

d. )  The  current  input  value  say  be  retained  by  responding  eith  a 

carriage  return. 

e. )  The  input  value  eay  be  changed  by  typing  a  nee  value  tolloeed 

by  a  carriage  return. 

t.)  Corrections  to  inputs  during  typing,  prior  to  a  carriage 

return,  are  eade  eith  the  delete  and  backspace  keys. 

g. )  Key  F9  tollONed  by  a  carriage  return  will  restart  the  input 

eenu  so  that  input  errors,  once  accepted,  can  be  changed. 

h. )  Nhen  specitied  in  the  eenu.  Key  FIO  tolloeed  by  a  carriage 

return  provides  a  quick  advance  to  the  next  eenu.  All  inputs 

that  Mere  not  changed  retain  the  current  displayed  values. 

i. )  The  input  processor  is  not  idiot-proof.  It  Morks  flaelessly 

Nhen  used  appropriately.  Keep  the  cursor  on  the  input  line. 

Each  of  the  eenus  and  associated  inputs  are  explained  in  the  follo- 
Ning  sections. 

5.1.  Nenu  1:  Plotter  Seitch  Settings 

Menu  1  provides  the  seitch  settings  for  the  IBM-7371  and  7372  plot¬ 
ters.  If  the  SMitches  are  not  set  correctly  the  prograe  Mill  not  run. 
The  plotter  should  be  turned  off  Nhilc  the  seitches  are  set  and  then 
turned  on. 

5.2.  Mcnu-2:  Enter  File  Naees 

Menu-2  proepts  the  user  to  indicate  if  an  input  function  file  and/or 
an  input  data  file  are  to  be  read.  Valid  inputs  are  *Y'  and  "N".  The  "Y” 
response  proepts  the  user  for  a  file  naae.  Nhen  these  files  are  read  the 
function  definitions  and/or  the  input  data  are  inserted  into  the  prog- 
rae.  If  functions  are  to  be  plotted  the  function  definitions  have  to 

read  froe  an  input  function  file  Nhich  should  have  been  created  accor¬ 
ding  to  the  instructions  in  Section  3.  The  input  data  file  is  created  by 

the  prograe,  if  desired,  at  the  end  of  the  input  phase. 
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5.3.  n*nu-3i  Enter  Plotting  Paraeeters 

Nenu-3  proepte  the  uier  for  plotting  peraeeter  inputs.  The  plotting 
pereeeters  ere  described  as  follows: 

XHIN:  X-axis  einieue  value  (oust  be  an  integer). 

XNAXi  X-axis  aaxieue  value  (eust  be  an  integer). 

YHIN:  Y-axis  einieue  value  (eust  be  an  integer). 

YNAX:  Y-axis  eaxieua  value  (eust  be  an  integer). 

XSCALE:  X-axis  division  scale  factor  used  to  convert  X-axis  values 
to  noninteger  values.  For  exaeple:  If  the  X-axis  is  to  have 
the  range  0  to  .9  then  the  X-axis  inputs  are  0  and  9  and  the 
XSCALE  input  is  10. 

YSCALE:  Y-axis  division  scale  factor  used  to  convert  Y-axis  values 
to  noninteger  values.  (Siailar  to  XSCALE) 

SIZE:  Size  of  the  square  plotting  area  in  inches.  Valid  inputs  are 

3  to  5. 

NUMBER  OF  X-AXIS  GRIDS:  The  nueber  of  grid  space  divisions  on  the  X- 
axis.  Grids  are  drawn.  Labels  are  printed  at  each  grid  line. 
Valid  inputs  are  1  to  10. 

NUMBER  OF  Y-AXIS  GRIDS:  The  nuaber  of  grid  space  divisions  on  the  Y- 
axis.  Grids  are  drawn.  Labels  are  printed  at  each  grid  line. 
Valid  inputs  are  1  to  10. 

NUMBER  OF  FUNCTIONS:  The  nuaber  of  function  definitions  in  the  input 
function  file.  Valid  inputs  are  0  to  5. 

JUMP  FUNCTION:  Deteraines  if  the  plotting  pen  is  down  or  up  as  the 
pen  aoves  across  the  plotting  area  froa  above  to  below,  or 
froa  below  to  above,  the  plotting  area.  Valid  inputs  are  "Y” 
and  "N*.  "Y*  indicates  the  pen  is  up.  "N"  indicates  the  pen 

is  down.  See  Exaeple  1. 

NUMBER  OF  (X,Y):  The  nuaber  of  individual  points  to  plot  in  addition 
to  the  function  definitions.  Valid  inputs  are  0  to  100. 

CONNECT  POINTS:  Deteraines  if  the  points  are  connected  with  a  line 
graph.  Valid  inputs  are  "Y"  and  ”N". 

MARK  POINTS:  Deteraines  if  points  are  aarked  with  "t”  when  plotted. 
Valid  inputs  are  "Y*  and  *N”. 

5.4.  Menu-4:  Enter  Function  Nuaber  To  Plot 

Henu-4  proapts  the  user  to  indicate  for  each  function  if  the  fun¬ 
ction  is  to  be  plotted.  Any  coabination  of  the  functions  can  be  plotted. 
Valid  inputs  are  ”Y"  or  "N". 

5.5.  Menu-5:  Enter  (X,Y)  Points 

Menu-5  proapts  the  user  to  input  the  (X,Y)  points  for  plotting.  The 
points  are  shown  on  the  screen  in  sets  of  15  points.  Valid  inputs  are 
nuabers  in  the  standard  integer  or  deciaal  foraat.  Points  outside  of  the 
plotting  area  will  not  be  plotted. 


5.6.  Nenu-6:  Enttr  Plot  Titles. 

Henu'6  proepts  the  user  Tor  titles  to  be  printed  on  the  plot.  The  X- 
axis  title  is  printed  under  the  X-axis.  The  Y-axis  title  is  printed 
along  the  Y-axis.  The  Top  title  is  printed  above  the  plot.  All  titles 
are  centered.  Valid  inputs  are  any  character  except  *,*. 

5.7.  Menu-7:  Enter  Plot  Legends 

Menu-7  proepts  the  user  to  input  legend  titles  Tor  each  Tunction  to 
be  plotted.  The  legends  are  printed  to  the  right  oT  the  plot.  Valid 
inputs  are  any  character  except  The  eaxieue  nueber  oT  characters  is 

12. 

5.8.  Menu-8:  Enter  X-Axis  Labels 

Menu-8  proepts  the  user  to  enter  X-axis  labels.  The  labels  are 
centered  on  the  grid  lines.  Valid  inputs  are  any  character  except  *,*. 

5.9.  Menu-9:  Enter  Y-Axis  Labels 

Menu-9  proepts  the  user  to  enter  Y-axis  labels.  The  labels  are 
centered  on  the  grid  lines.  Valid  inputs  are  any  character  except 

5.10.  Menu-10:  Edit/Save  Input  Data 

Menu-10  proepts  the  user  to  indicate  iT  the  input  data  is  to  be 
edited  and/or  saved.  Valid  inputs  are  "Y"  and  "N*.  This  is  the  end  oT 
the  input  phase.  IT  the  input  data  is  to  be  edited  Tor  corrections  the 
prograe  returns  to  Menu-2.  IT  the  data  is  to  be  saved  in  a  Tile  on  a 
diskette  then  the  user  is  proepted  Tor  a  Tile  naee. 

5.11.  Menu-11:  Begin  Plot 

Menu-11  inToras  the  user  that  the  plotter  is  draNing  the  plotting 
area  with  the  speciTied  X-axis  and  Y-axis  grids.  No  input  is  required. 

5.12.  Menu-12:  Enter  Point  Plot  Paraeeters 

Menu-i2  proepts  the  user  Tor  point  plotting  inputs  Tor  pen  selection 
and  line  type.  Valid  inputs  Tor  pen  selection  depend  on  the  nueber  oT 
pen  positions  on  the  plotter  ehich  are  1  to  6  Tor  the  IBM-7372  plotter 
and  1  to  2  Tor  the  IBM-7371  plotter.  Valid  inputs  Tor  line  type  are 
included  in  the  eenu.  Responding  eith  the  carriage  return  provides  a 
solid  line.  All  other  responses  are  either  dots  or  dashes.  The  plotter 
Mill  stop  and  eait  Tor  these  inputs. 
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5.13.  Menu~13:  Entir  Function  Plot  Paraacters 

Hanu-13  proapts  tha  ustr  for  function  plotting  inputs  for  pen  selec¬ 
tion  and  line  type.  Valid  inputs  for  pen  selection  depend  on  the  nuaber 
of  pen  positions  on  the  plotter  which  are  1  to  6  for  the  IBH-7372 
plotter  and  1  to  2  for  the  IBN-7371  plotter.  Valid  inputs  for  line  type 
are  included  in  the  aenu.  Responding  with  the  carriage  return  -rovides  a 
solid  line.  All  other  responses  are  either  dots  or  dashes.  The  plotter 
Hill  stop  and  wait  for  these  inputs  prior  to  plotting  each  function. 

5.14.  Henu-14:  Begin  Printing 

Henu-14  inforas  the  user  that  function  and  point  plotting  is  coa- 
plete  and  that  titles  and  labels  are  now  being  printed. 

5.15.  Menu-15:  Restart/End  Prograa 

Henu-15  proapts  the  user  to  either  restart  or  end  the  prograa.  Valid 
inputs  are  "Y*  or  "N*.  If  the  prograa  is  restarted  it  returns  to  Menu-2 
and  all  inputs  and  functions  reaain  in  effect  until  changed.  If  the 
prograa  is  not  restarted  it  terainates  and  coaputer  control  is  returned 
to  DOS. 


6.  EXAMPLES 


Tno  txaaplet  art  providtd  to  illustratt  prograt  application. 
6.1.  Exatple  1 

This  exatple  plots  the  tr igonotetr i c  functions 

Y  =  Sin  (X) 

Y  «  Cos  (X) 

Y  »  Tan  <X) 


No  points  are  plotted.  The  input  function  file  and  input  data  file  for 
this  exatple  are  on  the  IBMPLOT.BAS  diskette  in  files  IBMFEXl.BAS  and 
IBMDEXl.  A  revieM  of  the  data  is  presented  in  Table  1  and  the  plotter 
output  is  contained  in  Figure  1. 


To  specifically  illustrate  the  jutp  function  input  this  exatple  tas 
run  to  plot  only  the  function  Y  •  Tan  (X)  with  the  jutp  function  input 
set  to  “Y"  and  then  set  to  "N*.  The  plotter  output  it  presented  in 
Figures  2  and  3.  The  difference  in  the  plotter  output  is  the  pen-up  and 
pen-dOMn  feature  as  the  pen  toves  across  the  discontinuities  for  Y. 

6.2.  Exaeple  2 


This  exaeple  plots  the  eight  (X,Y)  points 


(X,Y)  »  (2, .94), 
(4, .52) , 


(2. 5, .76),  (3, .65), 
(4. 5, .49),  (5, .44), 


(3. 5, .55) 
(5. 5, .41) 


and  the  functions 


Y  ■  A#X  ♦  B 

Y  =  B#A^X 

Y  «  B*X''A 

Y  «  X/(A  +  B#X) 


A  »-  .19 
A  »  .76 

A  =-  .83 
A  —3.35 


B  s  1,35 
B  s  1.65 
B  »  1.65 
B  «  2.83 


The  coefficients  in  the  functions  xere  detereined  froe  the  eight 
(X,Y)  points  by  least  squares  Nith  the  constraint  that  (X,Y)  =  (1.83, 
1.0).  The  input  function  file  and  input  data  file  for  this  exaeple  are 
on  the  IBMPLOT.BAS  diskette  in  files  IBMFEX2.BAS  and  IBMDEX2.  A  review 
of  the  data  is  presented  in  Table  2  and  the  plotter  output  is  contained 
in  Figure  4.  This  exaeple  coepares  graphically  the  derived  functions 
with  the  original  points  and  illustrates  the  utility  of  plotting  a  line 
graph  along  with  the  function  definitions. 
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7.  APPLICATION  EXTENSIONS 


Tht  BASIC  progran  is  included  as  Appendix  A.  The  prograa  is 
straight  TorNard  and  each  program  menu  section  is  clearly  narked.  A  user 
faailiar  Nith  BASIC  can  extend  this  progran  in  many  Nays.  The  plotting 
procedures  are  the  heart  oi  the  progran  and  many  other  applications  can 
be  built  around  them.  It  should  not  be  hard,  far  instance,  to  plot  and 
label  sequences  of  line  graphs,  plot  and  label  bar  graphs,  perform 
specific  least  square  calculations  and  increase  the  nunber  of  functions. 


INPUT  FUNCTION  FILE  NAME:  IBHFEXl.BAS 

INPUT  DATA  FILE  NAME:  IBNDEXl 

XniN:  0 

XHAX:  10 

YMIN;  -  2 

YMAX;  2 

XSCALE:  1 

YSCALE;  1 

SIZE:  3.5 

NUMBER  OF  X-AXIS  8RI0S:  5 
NUMBER  OF  Y-AXIS  GRIDS:  4 
JUMP  FUNCTION:  Y 

NUMBER  OF  tX,Y):  0 
CONNECT  POINTS:  N 
MARK  POINTS:  N 

PLOT  FUNCTION  1:  Y 
PLOT  FUNCTION  2:  Y 
PLOT  FUNCTION  3:  Y 


X-AXIS  TITLE:  X  (RADIANS) 
Y-AXIS  TITLE:  Y»F(X) 

TOP  TITLE:  TRIG  FUNCTIONS 
LEGEND-1:  SIN  (X> 
LEGEND-2:  COS  (X) 
LEGEND-3:  TAN  (X> 

1  X-AXIS  LABEL:  0.0 

2  X-AXIS  LABEL:  2.0 

3  X-AXIS  LABEL:  4.0 

4  X-AXIS  LABEL:  6.0 

5  X-AXIS  LABEL:  8.0 

1  Y-AXIS  LABEL:  -2.0 

2  Y-AXIS  LABEL:  -1.0 

3  Y-AXIS  LABEL:  0.0 

4  Y-AXIS  LABEL:  1.0 

5  Y-AXIS  LABEL:  2.0 
FUNCTION  1  LINE  TYPE:  2 
FUNCTION  2  LINE  TYPE:  3 
FUNCTION  3  LINE  TYPE:  4 


Table  1:  Input  Data  For  Exaeple  1 


TRIG  FUNCTIONS 


SIN  (X> 


COS  (X> 


/  A  \ 


TAN  CX> 


-2.  OL_ 

0.  0 


X  (RADIANS) 


Figure  1:  Plotter  Output  for  Exaeple  1 


TRIG  FUNCTIONS 

i  r 

“1 

TAN  CX> 

X  (RADIANS) 

Figurt  2i  Plotter  Output  for  YaTen  (X)  Nith  Juep  Function  ■  Y 

TRIG  FUNCTIONS 


TAN  CX> 


X  (RADIANS) 

Figure  3:  Plotter  Output  for  Y>Ten  (X)  eith  Juep  Function  ■  N 

18 


INPUT  FUNCTION  FILE  NAME:  IBHFEX2.BAS 


INPUT  DATA  FILE  NAME: 

XNINs  2 

XHAX:  II 

YNIN:  B 

YHAX:  1 

XSCALEi  2 

YSCALE:  1 

SIZE:  3.5 

NUMBER  OF  X-AXIS  GRIDS: 
NUMBER  OF  Y-AXIS  GRIDS: 
JUMP  FUNCTION:  Y 

NUMBER  OF  (X,Y):  G 
CONNECT  POINTS:  Y 
MARK  POINTS:  Y 

PLOT  FUNCTION  1:  Y 
PLOT  FUNCTION  2:  Y 
PLOT  FUNCTION  3:  Y 
PLOT  FUNCTION  4:  Y 
FUNCTION  1  LINE  TYPE: 
FUNCTION  2  LINE  TYPE: 
FUNCTION  3  LINE  TYPE: 
FUNCTION  4  LINE  TYPE: 


IBMDEX2 


X-AXIS  TITLE:  TIME  LATE  (HOURS) 
Y-AXIS  TITLE:  P(DETECTION) 

TOP  TITLE:  LEAST  SQUARE  COMPARISON 
LEGEND-1:  Y>A«X^B 
LE6END-2:  Y>BtA''X 
LEGEND-3:  y-B«X^A 
LEGEND-41  Y«X/(A4-BtX> 


(X,Y)»(2,. 

(4,, 


1 

X-AXIS 

LABEL: 

2.0 

2 

X-AXIS 

LABEL: 

2.5 

3 

X-AXIS 

LABEL: 

3.0 

4 

X-AXIS 

LABEL: 

3.5 

5 

X-AXIS 

LABEL: 

4.0 

6 

X-AXIS 

LABEL: 

4.5 

7 

X-AXIS 

LABEL: 

5.0 

G 

X-AXIS 

LABEL: 

5.5 

1 

Y-AXIS 

LABEL: 

0.0 

2 

Y-AXIS 

LABEL: 

0.2 

3 

Y-AXIS 

LABEL: 

0.4 

4 

Y-AXIS 

LABEL: 

0.6 

5 

Y-AXIS 

LABEL: 

0.B 

6 

Y-AXIS 

LABEL: 

1.0 

) 

(2.5,. 

7G) , (3, 

.65) , (3.5 

) 

(4.5,. 

19) , (5, 

.44) , (5.5 

Table  2:  Input  Data  For  Exaeple  2 

LEAST  SQUARE  COMPARISON 


Y>A»X-»9 


y-B*A*X 


Y-X/  (A-»B*X> 


TIME  LATE  (HOURS) 


Figure  4:  Plotter  Output  for  Exaaple  2 


WK‘5 


B.  APPENDIX 


8.1.  APPENDIX  A:  IBH-PC  BASICA  Prograa 


10  KEY  OFF:  CLS:  OPTION  BASE  1:  DIN  XP ( 100) , YP (100) 

20  NP$»"N":  LPt»"N":  JUNP*»“Y“ 

30  XSCALE>1:  YSCALE-1:  XNIN*0:  XHAX>1:  YNIN-0t  YNAX>1:  SIZE>4:  X6>1:  Y6>1 

40  FOR  I»1  TO  10:  KEY  I,  NEXT  I 

50  ■ . HENU-1 

60  80SUB  3300 


70  LOCATE  3,24:  PRINT  "HENU-l:  PLOTTER  SNITCH  SETTINGS" 

80  LOCATE  5,25:  PRINT  "PROFESSOR  A.  ANDRUS,  CODE  5SAS" 

90  LOCATE  6,27:  PRINT  "NAVAL  POSTGRADUATE  SCHOOL" 

100  LOCATE  8,15:  PRINT  "TURN  PLOTTER  OFF.  SET  SNITCHES  AS  FOLLONS:  (I>ON,  0>0 
110  LOCATE  10,15:  PRINT  "HP-7470-A  and  IBH-7371" 

120  LOCATE  12,15:  PRINT  "SNITCH:  S2  SI  Y  US  B4  B3  B2  Bl" 

130  LOCATE  13,15:  PRINT  "SET:  I  I  0  I  I  0  I  0" 

140  LOCATE  15,15:  PRINT  "HP-7475-A  and  IBH-7372" 

150  LOCATE  17,15:  PRINT  "SNITCH:  S2  SI  Y  US  A3/A4  B4  B3  B2  Bl" 

160  LOCATE  18,15:  PRINT  "SET:  I  I  0  I  A4  1010" 

170  LOCATE  20,15:  PRINT  "TURN  PLOTTER  ON." 

180  LOCATE  23,26:  PRINT  "..  PRESS  ";CHR»(17) ;CHRI(196) ;CHRt(217) ; ‘  TO  CONTINUE 
190  A<«1NKEY$:  IF  Af<>CHR$<13)  THEN  190  ELSE  CLS 

200  OPEN  "CONI:  9600,S,7,1 ,RS,CS6S535,DS,CD"  AS  11 

210  PRINT  •1,"IN;SP  IjPA  500,500$" 

220  ■ . HENU-2 

230  G0SU6  3300 

240  LOCATE  3,27:  PRINT  "NENU-2:  ENTER  FILE  NANES" 

250  LOCATE  10,20:  INPUT  "t  INPUT  FUNCTION  FILE  NAHE  Y/N  "$At 

260  IF  At>"Y"  OR  Al>"y*  THEN  270  ELSE  290 

270  LOCATE  11,20:  INPUT  "  FILE  NANE  ■  ",FF$ 

280  IF  FF$<>""  THEN  CHAIN  NER6E  FFI,  290, ALL 

290  LOCATE  13,20:  INPUT  "t  INPUT  DATA  FILE  NAHE  Y/N  "$A$ 

300  IF  A$-"Y"  OR  Af>"y"  THEN  310  ELSE  460 

310  LOCATE  14,20:  INPUT  "  FILE  NAHE  «  ",DF$ 

320  IF  0F$>""  THEN  460  ELSE  OPEN  DF>  FOR  INPUT  AS  2 

330  INPUTt2,XHIN,  XHAX , YHIN, YNAX , XSCALE, YSCALE , SI ZE, X6, YG, IP , NF,NXL ,NYL 

340  FOR  I-l  TO  IP:  INPUTi2,XP<I ) , YP( I ) :  NEXT  I 

350  INPUTt2,LP«:  INPUTt2,HPf 

360  INPUT«2,XLABEL$:  INPUTB2, YLABELt 

370  INPUTI2,T0P«:  INPUTt2, JUHPt 

380  FOR  I>1  TO  NF:  INPUT02 ,KF$ ( I ) :  NEXT  I 

390  FOR  I>1  TO  NXL:  INPUTt2 , XLt ( I ) :  NEXT  I 

400  FOR  I«1  TO  NYL:  INPUT«2,YLI(I) :  NEXT  I 

410  FOR  I«1  TO  NF:  INPUT«2,L> ( I ) :  NEXT  I 


420  CL0SEI2:  GOTO  460 

430  ■ . HENU-3 

440  KEY (10)  OFF:  RETURN  960:  'F>TRAP  SUBROUTINE 

450  KEY(9)  OFF:  KEY  (10)  OFF:  RETURN  460 

460  KEY(9)  ON:  ON  KEY(9)  GOSUB  450:  KEY(IO)  ON:  ON  KEY(IO)  60SUB  440 


470  GOSUB  3300:  GOSUB  3600:  GOSUB  3560 

480  LOCATE  3,25:  PRINT  "HENU-3:  ENTER  PLOT  PARAHETERS" 

490  LOCATE  7,15:  PRINT  "XHIN  -"$XHIN 

500  LOCATE  8,15:  PRINT  "XHAX  «";XHAX 


SIO 

LOCATE 

9,15: 

PRINT 

"YHIN  « 

"jYMIN 

520 

LOCATE 

18,15: 

PRINT 

"YNAX  » 

";YMAX 

530 

LOCATE 

11,15: 

PRINT 

•XSCALE- 

*;XSCALE 

540 

LOCATE 

12,15: 

PRINT 

"YSCALE- 

*;YSCALE 

550 

LOCATE 

13,15: 

PRINT 

"SIZE  » 

";S1ZE 

560 

LOCATE 

14,15: 

PRINT 

"NUMBER 

OF  X 

-AXIS  GRIDS  « 

";XG 

570 

LOCATE 

15,15: 

PRINT 

"NUMBER 

OF  Y 

-AXIS  GRIDS  > 

";YG 

580 

LOCATE 

16,15: 

PRINT 

"NUMBER 

OF  FUNCTIONS 

“;NF 

590 

LOCATE 

17,15: 

PRINT 

"JUMP  FUNCTION  Y/N 

";JUMP» 

600 

LOCATE 

18,15: 

PRINT 

"NUMBER 

OF  (X,Y)  TO 

PLOT 

";  IP 

610 

LOCATE 

19,15: 

PRINT 

"CONNECT 

POINTS  Y/N 

■;LP$ 

620 

LOCATE 

28,15: 

PRINT 

"MARK  POINTS 

Y/N 

";MP» 

630 

LOCATE 

7,13: 

PRINT 

640 

LOCATE 

7,58: 

INPUT 

XMIN4: 

IF 

XMINtO" 

"  THEN  XHIN*VAL(XMIN4) 

650 

LOCATE 

8,13: 

PRINT 

660 

LOCATE 

8,58: 

INPUT 

XMAX4: 

IF 

XMAX*<>" 

"  THEN  XMAX«VAL(XHAX<> 

670 

LOCATE 

9,13: 

PRINT 

680 

LOCATE 

9,58: 

INPUT 

YMINt: 

IF 

YMINIO" 

"  THEN  YMIN*VAL(YMIN») 

690 

LOCATE 

10,13: 

PRINT 

700 

LOCATE 

10,50: 

INPUT 

YMAX<: 

IF 

YMAXtO" 

"  THEN  YMAX«VAL(YNAXI) 

710 

LOCATE 

11,13: 

PRINT 

•f  • 

720 

LOCATE 

11,50: 

INPUT 

XSCALE4: 

IF 

XSCALE><>""  THEN  XSCALE>VAL ( XSCALEI) 

730 

IF  XSCALE<«0 

THEN 

XSCALE-1 

740 

LOCATE 

12,13: 

PRINT 

II  ^  H 

750 

LOCATE 

12,58: 

INPUT 

YSCALEt: 

IF 

YSCALEIO""  THEN  YSCALE-VAL  ( YSCALE4) 

760 

IF  YSCALE<>0 

THEN  ' 

YSCALE-1 

770 

LOCATE 

13,13: 

PRINT 

780 

LOCATE 

13,50: 

INPUT 

SIZEt 

790 

LOCATE 

14,13: 

PRINT 

800 

LOCATE 

14,58: 

INPUT 

XG$: 

IF 

XGIO"" 

THEN 

X6-VAL(XGS) 

810 

IF  XB<« 

•8 

THEN  : 

X8>1  ELSE 

IF 

XG»1B 

THEN 

XG-IB 

820 

LOCATE 

15,13: 

PRINT 

"#■ 

830 

LOCATE 

15,50: 

INPUT 

Y6«: 

IF 

YG$<>"" 

THEN 

Y6«VAL(Y6$) 

840 

IF  YG<« 

•0 

THEN 

Y6>1  ELSE 

IF 

Y6>>10 

THEN 

YG>ie 

850 

LOCATE 

16,13: 

PRINT 

“#* 

860 

LOCATE 

16,58: 

INPUT 

NF$: 

IF 

NFIO"" 

THEN 

NF«VAL(NF>) 

870 

LOCATE 

17,13: 

PRINT 

"#« 

880 

LOCATE 

17,58: 

INPUT 

T$: 

IF 

T$<>"" 

THEN 

JUHP4»T$ 

890 

LOCATE 

18,13: 

PRINT 

900 

LOCATE 

18,58: 

INPUT 

IP<: 

IF 

IP»<>"" 

THEN 

IP-VAL(IPI> 

910 

IF  IP>10B 

THEN 

IP-IBB 

920 

LOCATE 

19,13: 

PRINT 

998  • . . . MENU-4 

1888  IF  NF>8  THEN  1148  ELSE  1838 

1818  KEY(18)  OFFt  RETURN  1148:  'F-TRAP  SUBROUTINE 

1828  KEY(9)  OFF:  KEY  (18)  OFF:  RETURN  1838 

1838  KEY  (9)  ON:  ON  KEY(9>  60SUB  1828:  KEY(18)  ON:  ON  KEY(18)  60SUB  1818 
1848  60SUB  3388:  60SUB  3688:  60SUB  3S68 

1858  LOCATE  3,21:  PRINT  ''MENU-4:  ENTER  FUNCTION  NUMBER  TO  PLOT' 

1868  FOR  I«1  TO  NF 

1878  LOCATE  18>I,28:  PRINT  'PLOT  FUNCTION';!;"  Y/N  :  ";KF<(I) 

1888  NEXT  I 

1898  FOR  1>1  TO  NF 

1188  LOCATE  18+1,18:  PRINT  "t" 

1118  LOCATE  18+1,58:  INPUT  T$:  IF  T«<>"  THEN  KF«(I)-T» 

1128  NEXT  I 

1138  • . . . MENU-5 

1148  IF  IP-8  THEN  1458  ELSE  1178 

1158  KEY(18)  OFF:  RETURN  1458:  ‘F-TRAP  SUBROUTINE 

1168  KEY(9)  OFF:  KEY(18)  OFF:  RETURN  1178 

1178  KEY  (9)  ON:  ON  KEY(9)  60SUB  1168:  KEY(18)  ON:  ON  KEY(18)  60SUB  1158 
1188  60SUB  3388:  GOSUB  3688:  GOSUB  3568 
1198  FOR  J«1  TO  IP  STEP  15 

1288  LOCATE  3,27:  PRINT  'MENU-5:  ENTER  (X,Y)  POINTS' 

1218  IF  J+14>IP  THEN  JE-IP  ELSE  JE-J+14 
1228  K-8 

1238  FOR  1-J  TO  JE 
1248  K-K+1 

1258  LOCATE  5+K,3:  PRINT  I 

1268  LOCATE  5+K,7:  PRINT  'X»';XP(I> 

1278  LOCATE  5+K,25:  PRINT  "Y-';YP(I) 

1288  NEXT  I 
1298  K-8 

1388  FOR  I-J  TO  JE 
1318  K-K+1 

1328  LOCATE  5+K,3:  PRINT 

1338  LOCATE  5+K,43:  INPUT  "X-';XP$ 

1348  IF  XP«-'P'  OR  XP«-"p'  THEN  1488 

1358  LOCATE  5+K,61:  INPUT  "y»";YP$ 

1368  IF  YPI«'P*  OR  YPf-"p'  THEN  1488 

1378  IF  XP$<>"  THEN  XP  ( I) -VAL  ( XP») 

1388  IF  YPIO"  THEN  YP  ( I ) -VAL  ( YP») 

1398  NEXT  1 
1488  NEXT  J 
1418  GOTO  1458 


1428  . HENU-6 

1438  KEY(18)  OFF:  RETURN  1588t  'F>TRAP  SUBROUTINE 
1448  KEY<9)  OFFi  KEY(18)  OFF:  RETURN  1458 

1458  KEY(9)  ON:  ON  KEY(9)  60SUB  1448:  KEY(18>  ON:  ON  KEY(18)  60SUB  1438 

1468  60SUB  3388:  60SUB  3688:  60SUB  3568 

1478  LOCATE  3,27:  PRINT  "NENU-A:  ENTER  PLOT  TITLES" 

1488  LOCATE  18,28:  PRINT  "X-AXIS  TITLE  >  ":XLABEL4 

1498  LOCATE  11,28:  PRINT  "Y-AXIS  TITLE  >  *;YLABEL« 

1588  LOCATE  12,28:  PRINT  "TOP  OF  6RAPH  TITLE  >  ";TOP« 

1518  LOCATE  14,18:  INPUT  "•  NEW  X-AXIS  TITLE  >  ",T$ 

1528  IF  T*<>""  THEN  XLABELt«Tf 

1538  LOCATE  15,18:  INPUT  "•  NEW  Y-AXIS  TITLE  -  ",T« 

1548  IF  T»<>""  THEN  YLABEL«*T$ 

1558  LOCATE  16,18:  INPUT  "»  NEW  TOP  TITLE  >  ",T4 

1568  IF  T*<>"*  THEN  T0P««T4 

1578  . NENU-7 

1588  IF  NF*8  THEN  1768  ELSE  1618 

1598  KEY(18)  OFF:  RETURN  1768:  'F-TRAP  SUBROUTINE 

1688  KEY(9)  OFF:  KEY(IO)  OFF:  RETURN  1618 

1618  KEY  (9)  ON:  ON  KEY (9)  60SUB  1688:  KEY (18)  ON:  ON  KEY (18)  60SUB  1598 

1628  60SUB  3388:  GOSUB  3688:  60SUB  3568 

1638  LOCATE  3,27:  PRINT  "HENU-7:  ENTER  PLOT  LEGENDS" 

1648  K-7 

1658  FOR  I-l  TO  NF 
1668  K«K^1 

1678  LOCATE  K,15:  PRINT  "LEGEND-"} I { "  •  "}Lf(I) 

1688  NEXT  I 
1698  K>7 

1788  FOR  I«1  TO  NF 
1718  K>K«1 

1728  LOCATE  K,13:  PRINT  "#" 

1738  LOCATE  K,4S:  INPUT  "NEW  LEGEND  >  ”,T«:  IF  T><>""  THEN  L«(I)«Tt 
1748  NEXT  I 

1758  ' . . . HENU-B 

1768  KEY(9)  ON:  ON  KEY(9)  GOSUB  1798:  KEY(18)  ON:  ON  KEY(18)  GOSUB  1788 

1778  GOSUB  3388:  GOSUB  3688:  GOSUB  3568:  GOTO  1888 

1788  KEY (18)  OFF:  RETURN  1878:  F-TRAP  SUBROUTINE 

1798  KEY (9)  OFF:  KEY  (18)  OFF:  RETURN  1768 

1888  LOCATE  3,26:  PRINT  "NENU-B:  ENTER  X-AXIS  LABELS" 

1818  IF  X8*8  THEN  NXL-2  ELSE  NXL>X6^1 

1828  FOR  I>1  TO  NXL:  LOCATE  8^1,18:  PRINT  I;"X-AXIS  LABEL  -";XL»(I):  NEXT  I 

1838  FOR  1-1  TO  NXL 

1848  LOCATE  8*1,8:  PRINT  '*" 

1858  LOCATE  8*1,45:  INPUT  "NEW  LABEL  -",T$:  IF  TSO”"  THEN  XL>(I)«T> 

1868  NEXT  I 

1878  FOR  I-l  TO  NXL 

1888  XL(1)-LEN(XLS(I)):  IF  XLdDXLNAX  THEN  XLNAX*XL(1) 

1898  NEXT  I 


Cv' 


.'•■v 


tuik'! 


19B0 

1911 

1921 

193B 

194B 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 


KEY(9) 

BOSUB 


. HENU-9 

ONi  ON  KEY(9)  6QSUB  1940:  KEY(10)  ON:  ON  KEY(10)  60SUB  1930 
33001  BOSUB  3600!  BOSUB  3560!  GOTO  1950 
KEY(10)  OFF!  RETURN  2020!  F-TRAP  SUBROUTINE 
KEY(9)  OFF!  KEY(IB)  OFFi  RETURN  1910 
LOCATE  3,26!  PRINT  *HENU-9!  ENTER  Y-AXIS  LABELS* 

IF  YB-B  THEN  NYL>2  ELSE  NYL-YB+l 

FOR  I-l  TO  NYL!  LOCATE  8^1,10:  PRINT  I;*Y-AXIS  LABEL  -*:YL4(I):  NEXT  I 
FOR  I«1  TO  NYL 

PRINT  "#* 

INPUT  “NEN  LABEL  -".Tf!  IF  T«>**  THEN  YLI(I)-T» 


LOCATE  B«I,8! 

LOCATE  B^I,45! 

NEXT  I 

FOR  I>1  TO  NYL 

YL(I)>LEN(YL$(I) ) !  IF  YL(I)>YLNAX  THEN  YLHAX>YL(I) 
NEXT  I 


KEY(9) 

KEY(9) 


. HENU-10 

ON!  ON  KEY(9)  BOSUB  2070!  KEY(10)  OFF!  BOSUB  3300!  BOTO  2080 
OFF:  RETURN  2060!  F-TRAP  SUBROUTINE 


■  •  - 
•  ^  ■ 

ft  A 

2080 

LOCATE  3,25! 

PRINT  ‘HENU-IB!  EDIT/SAVE 

INPUT 

DATA 

L  i«Wl 

2090 

LOCATE  12,20! 

INPUT  **  EDIT  INPUT  DATA 

Y/N 

*;A« 

2100 

IF  AI-"Y*  OR 

A«-*y*  THEN  230 

2110 

LOCATE  14,20! 

INPUT  "•  SAVE  INPUT  DATA 

Y/N 

*;At 

N>: 

2120 

IF  A«-“Y*  OR 

A<-*y*  THEN  2130  ELSE  2260 

2130 

LOCATE  15,20! 

INPUT  *  FILE  NANE  « 

*,DF4 

2140 

OPEN  OFI  FOR 

OUTPUT  AS  2 

IF  DF4»"*  THEN  2260 


2150  PRlNTi2,XHIN,  XHAX , YNIN, YNAX ,XSCALE , YSCALE, SI ZE, XB, YB, IP ,NF ,NXL , NYL 


2160  FOR  I«1  TO  IP! 
2170  PRlNTt2,LP$! 


PRINTB2,XP(l),YP(I)i 

PRINTi2,HPf 


NEXT  I 


2180  PRINTt2,XLABEL«!  PRINTt2 , YLABELB 


2190  PRlNTI2,T0Pl! 
2200  FOR  1*1  TO  NF! 


2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 


FOR  I-l  TO  NXL! 
FOR  I-l  TO  NYL! 
FOR  I-l  TO  NF! 
CL0SEt2 


PRlNT42,JUHPf 
PR1NTI2,KF$(I)!  NEXT  I 
PRlNTt2,XL$(I)!  NEXT  I 
PRINTI2,YLt(I)!  NEXT  I 
PRINT#2,L«(1)!  NEXT  I 


' . HENU-11 

BOSUB  3300 

LOCATE  3,30!  PRINT  *HENU-ll!  BE6IN  PLOT* 

LOCATE  12,28!  PRINT  'PLOTTING  AXES  AND  BRIDS* 

PRINT#1,"IP*,X0,Y0,X0  +  2,YB  ♦  Z,"{" 
PRINTfl,"SC",XHIN,XHAX,YHIN,YHAX,"5 " 

PRINTIl,*PA*,XHIN,YHIN,"}PDj* 

PRINTBl, 'PA', XNIN, YNAX, XNAX, YNAX, XHAX, YNIN, XNIN, YNIN, *;PU;' 
PRINT#I,*IN*,X0,y0,X0+Z,Y0*Z,*;* 

PRINTil,*TL  100,0;* 

DXB-(XNAX-XNIN)/XB 

FOR  I-l  TO  X6-l!  PRINTI1,*PA*,I#DXB+XHIN,YHIN,";PD}XT;PU; "!  NEXT  I 
DY6-(YNAX-YNIN)/YB 

FOR  1-1  TO  YB-l!  PRINT  11 , *PA* , XNIN, I*DYG+YNIN, " ; PDj YT; PU; " !  NEXT  I 


NENU-12 


2390  . 

2400  IF  IP-0  THEN  2360 
2410  6OSU0  3300 

2420  LOCATE  3,22i  PRINT  '‘HENU-12:  ENTER  POINT  PLOT  PARANETERS* 

2430  60SUB  3390 
2440  PRINTtl,  "SI  .30, .34;" 

2430  IF  (HP»«"Y"  OR  HPI-"y")  AND  (LP»-"Y"  OR  LP*»"y")  THEN  2490 

2460  IF  (HPt»*Y"  OR  MP««"y")  AND  (LP$«"N"  OR  LP»-"n")  THEN  2310 

2470  IF  (HPI-“N"  OR  MP$-*n")  AND  (LP*-"Y"  OR  LPt«"y")  THEN  2330 

2480  GOTO  2560 

2490  FOR  1-1  TO  IP:  PRINTtl,  "SH»; PA" , XP ( I ) tXSCALE , YP ( I ) tYSCALE, " ; PD; " :  NEXT  I 
2500  PRINTtl,  "SH;PU;*:  GOTO  2360 

2510  FOR  I-l  TO  IP:  PRINTtl,  "SH«; PA" , XP ( 1 ) «XSCALE, YP ( I ) tYSCALE, " ; " :  NEXT  1 
2520  PRINTtl,  "SH;PU;":  GOTO  2560 

2530  FOR  I-l  TO  IP:  PRINTtl,  “PA" , XP ( I ) #XSCALE , YP ( I ) *YSCALE , " ; PD; " :  NEXT  I 
2540  PRINTtl,  "SN;PU;":  GOTO  2560 

2550  . NENU-13 

2360  PRINTtl,  "SI;":  KF-0 
2570  FOR  INF-1  TO  NF 

2580  IF  KFt(lNF)-"N"  OR  KF$(INF)-"n"  THEN  2890  ELSE  KF-KF^l 
2590  GOSUB  3300 

2600  LOCATE  3,20:  PRINT  "MENU-13:  ENTER  FUNCTION  PLOT  PARAMETERS" 

2610  LOCATE  6,27:  PRINT  "PLOTTING  FUNCTION  *;INF 

2620  GOSUB  3390 
2630  X-XMIN/XSCALE 

2640  ON  INF  GOSUB  5010,5020,5030,5040,5050 

2630  Y>Y»YSCALE:  X-X«XSCALE 

2660  IF  JUMPI«"N"  OR  JUMP»-"n*  THEN  2680 

2670  IF  Y<YHIN  OR  Y>YHAX  THEN  YC$-"YES"  ELSE  YCIi-"NO" 

2680  PRINT  tl,"PA",X,Y,";PD;" 

2690  FOR  XT-XMIN  TO  XMAX  STEP  (XMAX-XMIN) / (2/ 10) 

2700  X-XT/XSCALE 

2710  ON  INF  80SUB  5010,5020,5030,5040,5050 

2720  Y-Y*YSCALE:  X-XtXSCALE 


IF  JUHPI-"N*  OR  JUHPI-"n*  THEN  PRINTtl,  "PA":  GOTO  2770 
IF  Y<YHIN  OR  Y>YHAX  THEN  YClf-’YES"  ELSE  YClf-"N0" 

IF  YC«-"YES"  AND  YC1I-"YES"  THEN  PRINTtl , "PU; PA"  ELSE  PRINTtl , "PD; PA* 
YCt-YCl* 

PRINT  tl, USING  "tttt.tttt";X,Y 
PRINT  tl,";" 

NEXT  XT 

IF  LKINF)-""  THEN  2880 

PRINTtl,  *IH*,XO,YO,XO4'Z^100O,YOtZ,”;" 

PRINTtl, "SC; SI  . 13, . 16;PU;PA" ,XO^Zt50, YO^Z-300»KF, * ; " 

PRINTtl,  "LB";  LKINF)  ,CHRK3) 

PRINTtl , "PA" , XB+Z+50, YOfZ-30O#KF-35, " ; " 

PRINTtl , "PD; PA" , XO+2+750, Y0+Z-3BO*KF-35, * ; " 
PRINTtl,"PU;SC",XHIN,XHAX,YHIN,YMAX,*;SI  . 19,.27;" 

PRINT  tl,"IW“,XO,Y0,XO+Z,YO*Z,";" 

PRINTtl,  "PU;" 

NEXT  INF 

PRINT  tl,"PU;IP;IH;SC;SP  1;" 


2910  * . - . - . - . HENU-14 

2920  60SUB  3300 

2930  LOCATE  3,28t  PRINT  ''NENU-i4:  BEGIN  PRINTING" 

2940  LOCATE  12,27:  PRINT  "PRINTING  LABELS  AND  TITLES" 

2950  LX>LEN(XLABELf) 

2960  NX>(Z*9/1000-LX) /2 
2970  PRINT41,  "SI  .13, .16;" 

2980  FOR  I>1  TO  NXL 

2990  IF  XLSd)”*"  THEN  3020 

3000  PRINTtl,"PA",X0^Z/ (NXL-1)*(I-1) ,Y0-100,"; " 

3010  PR1NT«1,"CP",-XL(I)/2,0,*:LB";XL>(I) ,CHR4(3) 

3020  NEXT  I 

3030  IF  XLABEL«>""  THEN  3070 
3040  PRINTil,  "SI  .19,.27:" 

3050  IF  XLNAX>0  THEN  YT-100  ELSE  YT<>350 

3060  PRINT  ll,"PA" ,X0,Y0-YT,";CP",NX,0,";LB";XLABEL»,CHRi(3) 

3070  LY«LEN(YLABELS) 

3080  NY-(Z*9/1000-LY)/2 
3090  PRINTil,  "SI  .13, .16;" 

3100  FOR  I-l  TO  NYL 

3110  IF  YL$(1)>*"  THEN  3150 

3120  IF  I«1  THEN  YT-0  ELSE  YT— .2 

3130  PRINT  •l,"PA",X0-20,Y0+2/(NYL-l)*(I-l) ,";" 

3140  PRINT  ll,"CP",-YL(I) ,YT,";LB";YLt(I) ,CHR»(3) 

3150  NEXT  I 

3160  IF  YLABELI>""  THEN  3190  ELSE  XT>YLHAX«1B00/9^100 
3170  PRINTil,  "SI  .19, .27;" 

3180  PRINT  •1,"PA",X0-XT,Y0,";OI  0, 1 ; CP" , NY ,0, " ; LB" ; YLABEL4 ,CHRI  (3) , "DI  1,0 
3190  IF  TOPf«""  THEN  3220  ELSE  PRINTil,  "SI  .27, .40;" 

3200  PRINTil, "PA", X0,Y0>Z^300,";" 

3210  PRINTil , "CP", (Z*6.2/1000-LEN(TOPI) )/2,0,";LB";TOPf ,CHR$(3) 

3220  PRINTil,  "PU;SC;PA  0,0;" 

3230  CLOSEI  1 

3240  . MENU-15 

3250  GOSUB  3300 

3260  LOCATE  3,26:  PRINT  "MENU-15:  RESTART/END  PROGRAM" 

3270  LOCATE  12,25:  INPUT  "#  RESTART  PROGRAM  Y/N  ";T$ 

3280  IF  T<-"Y"  OR  Tt«"y"  THEN  CLOSEIl:  GOTO  200 


3290  CLOSEIl:  SYSTEM:  END 

3300  ' . SCREEN  BORDER  SUBROUTINE 

3310  CLS 


3320  LOCATE  2,1:  PRINT  CHRI (201 >; STRINGS ( 77 , 205) ; CHRf ( 1 87) 

3330  FOR  1-3  TO  23 

3340  LOCATE  1,1:  PRINT  CHRf(186) 

3350  LOCATE  1,79:  PRINT  CHRS(186); 

3360  NEXT  I 

3370  Ln':ATE  24,1:  PRINT  CHRS  (200) ;  STRINGS  ( 77 , 205) ;  CHRS  ( 188) ; 

3380  RETURN 


3390  ' . PEN  SELECTION  SUBROUTINE 

3400  PRINTII,  "SP;* 

3410  LOCATE  8,25:  INPUT  “•  SELECT  PEN  COLOR  POSITION:  ^PCP 

3420  LOCATE  10,25:  PRINT  “  SELECT  LINE  TYPE: 

3430  LOCATE  12,25:  PRINT  "C/R:  SOLID 

3440  LOCATE  13,25;  PRINT  "  0:  DOTS  AT  PLOTTED  POINTS" 

3450  LOCATE  14,25:  PRINT  "  1:  DOTS  EQUALLY  SPACED" 

3460  LOCATE  15,25:  PRINT  '  2:  SHORT  DASH" 

3470  LOCATE  16,25:  PRINT  "  3:  LONS  DASH" 

3400  LOCATE  17,25:  PRINT  ‘  4:  LONS  DASH  AND  DOT" 

3490  LOCATE  10,25:  PRINT  "  5:  LONS  AND  SHORT  DASH* 

3500  LOCATE  19,25:  PRINT  "  6:  LONS  AND  2  SHORT  DASHES" 

3510  LOCATE  10,25:  PRINT  "•" 

3520  LOCATE  10,54:  INPUT  LT< 

3530  PRINTil,  "SP";PCP,"5" 

3540  IF  LT$«""  THEN  PRINTil,  "LT; "  ELSE  PRINTil,  "LT" , VAL  (LTi) , " ; " 

3550  RETURN 

3560  ' . FIO  LINE  SUBROUTINE 

3570  LOCATE  23,25 

3500  PRINT  "PRESS  F10  AND  " ; CHRS ( 17) ; CHRt ( 196) ; CHR> (217) ; "  FOR  QUICK  ADVANCE" 
3590  RETURN 

3600  ' . F9  LINE  SUBROUTINE 

3610  LOCATE  22,25 

3620  PRINT  "PRESS  F9  AND  " j CHR» < 17) ; CHR$ ( 196) ; CHR» ( 217) ; "  TO  REPEAT  MENU* 
3630  RETURN 

5000  ‘ . FUNCTION  SUBROUTINES 

5010  RETURN 
5015  RETURN 
5020  RETURN 
5025  RETURN 
5030  RETURN 
5035  RETURN 
5040  RETURN 
5045  RETURN 
5050  RETURN 
5055  RETURN 
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